home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 23 Geos Applications / PICONV.BIN (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  8KB  |  83 lines
  1. 10 PRINTCHR$(8):ONBGOTO1300,1390:POKE56,92:CLR:POKE53281,1:POKE53280,12:PRINTCHR$(14):OPEN15,8,15
  2. 1040 PRINT"[147]PIC[207][206][214][197][210][212] [214]1.0  ART CONVERSION UTILITY":PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  3. 1045 PRINT"[150][211]ELECT ONE:":PRINT"[154]    1) [196]OODLE TO GEO[208]AINT FORMAT
  4. 1050 [153]"    2) (null)RINT (null)HOP TO GEO(null)AINT FORMAT":[153]"    3) (null)(null)VAL TO GEO(null)AINT FORMAT
  5. 1060 PRINT"    4) [210]ETURN TO [199][197][207][211]":PRINT"    5) [197]XIT TO [194][193][211][201][195]
  6. 1100 [161]W$:[139]W$[179][177]"1"[175]W$[179][177]"2"[175]W$[179][177]"3"[175]W$[179][177]"4"[175]W$[179][177]"5"[167]1100
  7. 1110 G[178][197](W$):[145]G[137]1130,1140,4000,3450,3550
  8. 1130 [133]"CLR(null)AME OF STR$(null)(null)STR$(null)VAL FILE";F$:[137]1180
  9. 1140 [133]"CLR(null)AME OF (null)(null) FILE";F$
  10. 1180 FL$[178]F$:[139]F$[178]""[167]1040
  11. 1185 [153]"(null)OADING ";F$;" INTO MEMORY....":[129]ZZ[178]1[164]1500:[130]:[139]G[178]1[167][137]1220
  12. 1200 [139]G[178]2[167][137]1220
  13. 1220 [151]53265,[194](53265)[176]32:[151]56578,[194](56578)[176]3:[151]56576,([194](56576)[175]252)[176]2:[151]53272,([194](53272)[175]15)[176]120:[151]648,96:[139]G[178]2[167]1360
  14. 1280 [159]2,8,2,"0:"[170]F$:[141]1550:[160]2:B[178]1:[147]F$,8,1
  15. 1300 [145]G[137]1520,1360:[129]X[178]1[164]2000:[130]:[137]1520
  16. 1360 [159]2,8,2,""[170]F$[170]",P,R":[151]185,0:[151]780,0:[151]781,0:[151]782,96:B[178]2:[158]62622
  17. 1390 [141]1550:[160]2:[129]X[178]23552[164]24551:[151]X,27:[130]:[129]X[178]1[164]2000:[130]:[137]1520
  18. 1520 [151]53265,27:[151]53272,23:[151]648,4:[151]56576,151:[139]MM[178]1[167][153]""E$:[160]2:[160]15:[129]ZZ[178]1[164]1311:[130]:[138]
  19. 1540 [137]2050
  20. 1550 [132]15,D,E$,F,H:[139]D[179]20[167][142]
  21. 1560 MM[178]1:[137]1520
  22. 2050 [153]"LOADVERIFYRIGHT$NSERT A DISK TO SAVE YOUR":[153]"GEO(null)AINT FILE ON.":[153]"(null)RESS (null)VAL(null)(null)(null)(null) WHEN READY":[153]"OR PRESS ATN TO ABORT.":[151]198,0
  23. 2090 [161]W$:[139]W$[179][177][199](13)[175]W$[179][177]"A"[167]2090
  24. 2100 [160]15:[139]W$[178]"A"[167][138]
  25. 2110 [153]"POKE(null)LEASE WAIT......":[129]X[178]49152[164]49719:[135]D:[151]X,D:[130]:[153]"ONLENREATING THE GEO(null)AINT FILE.....":PD$[178]"                ":PS$[178]"CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE":NU$[178][199](0):[153][199](14):[151]53280,14:[151]646,11:[151]2,0:[159]15,8,15,"I0":[141]3190:[159]2,8,2,"#":[141]3190:[152]15,"U1:2 0 18 0":[141]3190:[152]15,"B-P:2 173
  26. 2240 GOSUB3190:B$="":X=0
  27. 2260 GOSUB3380:B$=B$+A$:X=X+1:IFX<11THEN2260
  28. 2300 IFASC(B$)<>ASC("GEOS [198][207][210][205][193][212]")THEN3270
  29. 2310 PRINT#15,"M-R"CHR$(250)CHR$(2):GET#15,A$:IFA$=""THENA$=CHR$(0)
  30. 2330 BF=ASC(A$):PRINT#15,"M-R"CHR$(252)CHR$(2):GET#15,A$:IFA$=""THENA$=CHR$(0)
  31. 2360 BF=BF+(ASC(A$)*256):IFBF-50<0THEN3330
  32. 2380 OPEN3,8,3,"-PICONVERT,S,W":GOSUB3190:PRINT#3,"ART CONVERT PROGS":CLOSE3:SYS49155:OPEN3,8,3,"0:-PICONVERT,S,R":GOSUB3190:PRINT#15,"M-R"CHR$(144)CHR$(2):GET#15,DS$:IFDS$=""THENDS$=CHR$(0)
  33. 2470 DS=ASC(DS$):PRINT#15,"M-R"CHR$(148)CHR$(2):GET#15,DP$:IFDP$=""THENDP$=CHR$(0)
  34. 2500 DP=ASC(DP$):CLOSE3:GOSUB3400:PRINT#2,NU$;:GOSUB3380:DT$=A$:DT=ASC(DT$):GOSUB3380:SD$=A$:SD=ASC(SD$):PRINT#15,"U2:2 0 18"DS:OPEN3,8,3,"0:-PICONVERT,S,W":GOSUB3190:FORX=1TO254:READD:PRINT#3,CHR$(D);:NEXT:CLOSE3:GOSUB3400:PRINT#2,NU$;:GOSUB3380:IT$=A$:IT=ASC(IT$):GOSUB3380:IS$=A$:IS=ASC(IS$):PRINT#15,"U2:2 0 18"DS
  35. 2720 OPEN3,8,3,"0:-PICONVERT,S,W":GOSUB3190:SYS49152:SG=SG+1:CLOSE3:GOSUB3400:PRINT#2,NU$;:GOSUB3380:TR=ASC(A$):GOSUB3380:SE=ASC(A$):PRINT#15,"U2:2 0 18"DS:POKE780,TR:POKE781,SE:SYS49158:FL=PEEK(2):IFFL=0THEN2720
  36. 2870 GOSUB3400:GOSUB3040:PRINT#15,"U2:2 0 18"DS:GOSUB3190:PRINT#15,"U1:2  0"DT;SD:GOSUB3190:SYS49161:PRINT#15,"U2:2 0"DT;SD:GOSUB3190:PRINT"[154][195]ONVERSION COMPLETED.
  37. 2980 [160]2:[160]3:[160]15:[129]ZZ[178]1[164]2200:[130]:[138]
  38. 3040 [152]15,"M-R"[199](250)[199](2):[161]#15,A$:[139]A$[178]""[167]A$[178][199](0)
  39. 3060 BS[178][198](A$):[152]15,"M-R"[199](252)[199](2):[161]#15,A$:[139]A$[178]""[167]A$[178][199](0)
  40. 3090 BS[178]BS[170]([198](A$)[172]256):BC[178]BF[171]BS:BH[178][181](BC[173]256):BL[178]BC[171](BH[172]256):AC$[178]"":[129]X[178]1[164][195](FL$):B$[178][202](FL$,X,1):[139]B$[178]"*"[167]X[178][195](FL$):[137]3140
  41. 3130 B[178][198](B$[170][199](0)):[141]3300:AC$[178]AC$[170]B$:[130]
  42. 3140 AC$[178]AC$[170][201](PS$,(16[171][195](AC$))):DI$[178][199](131)[170]DT$[170]SD$[170]AC$[170]IT$[170]IS$[170][199](1)[170][199](7)[170][199](86)[170][199](12):DI$[178]DI$[170][199](31)[170][199](12)[170][199](0)[170][199](BL)[170][199](BH):[152]2,DI$;:[142]
  43. 3190 [132]15,EN,EM$,ET,ES:[139]EN[179]20[167][142]
  44. 3210 [153]"STR$RIGHT$(null)(null)CLOSEVAL(null)(null)(null)(null)!":[153]EN;EM$" "ET" ";ES:[153]"(null)RY AGAIN WITH ANOTHER DISK.
  45. 3240 CLOSE2:CLOSE3:CLOSE15:FORZZ=1TO2000:NEXT:RUN:RETURN
  46. 3270 PRINT"[206]OT A [199][197][207][211] DISK!":PRINT"[212]RY AGAIN WITH ANOTHER DISK.":GOTO3240
  47. 3300 IFB>64ANDB<91THENB=B+32:B$=CHR$(B)
  48. 3310 IFB>192ANDB<224THENB=B-96:B$=CHR$(B)
  49. 3320 RETURN
  50. 3330 PRINT"[206]OT ENOUGH FREE BLOCKS ON THIS DISK!":PRINT"[212]RY AGAIN WITH ANOTHER DISK.":GOTO2980:PRINT"[197]RROR":GOTO3240
  51. 3380 GET#2,A$:IFA$=""THENA$=CHR$(0)
  52. 3390 RETURN
  53. 3400 PRINT#15,"U1:2 0 18"DS:GOSUB3190:PRINT#15,"B-P:2"DP:GOSUB3190:RETURN
  54. 3450 CLOSE2:CLOSE3:CLOSE15:POKE53272,(PEEK(53272)AND15)OR192:POKE648,48
  55. 3470 OPEN15,8,15:OPEN2,8,2,"GEOS BOOT,P,R":INPUT#15,GG:CLOSE2:CLOSE15:IFGG=0THEN3540
  56. 3500 PRINT"[147][152][208]LEASE INSERT YOUR [199][197][207][211] [194]OOT DISK.":PRINT"[208]RESS [210][197][212][213][210][206] WHEN READY.
  57. 3520 [161]A$:[139]A$[179][177][199](13)[167]3520
  58. 3530 [137]3470
  59. 3540 [153]"POKE(null)OW LOADING CHR$VAL(null)(null).......":[147]"GEOS",8,1
  60. 3550 [133]"CLRATNRE YOU SURE";ZZ$:[139]ZZ$[178]"Y"[176]ZZ$[178]"YES"[167][158]64738
  61. 3555 [138]:[131]76,20,192,76,169,193,76,143,193,76,198,193,0,0,2,0,0,0,0,0,169,198,141,133,193,169,0,141,132,193,238,15,192,173,18,192,133,251,173,19,192,133,252,162,0,160,0,177,251,201,0,208,52,200,208,247,230,252,177
  62. 3600 [131]251,201,0,208,41,200,192,64,208,245,32,254,193,224,1,240,3,232,208,222,238,14,192,238,14,192,165,251,141,18,192,165,252,141,19,192,173,15,192,201,13,208,174,133,2,96,169,1,141,12,192,173,18,192,133,251
  63. 3630 [131]173,19,192,133,252,162,0,160,0,169,63,32,131,193,177,251,32,131,193,200,192,63,144,246,32,240,193,232,224,5,144,231,169,5,32,131,193,160,0,177,251,32,131,193,200,192,5,144,246,32,42,194,162,2,169,255,32
  64. 3660 [131]131,193,169,0,32,131,193,202,208,243,173,12,192,208,4,169,202,208,2,169,194,32,131,193,169,0,32,131,193,173,12,192,240,16,206,12,192,173,15,192,201,13,208,3,76,12,194,76,120,192,165,251,141,18,192,165,252
  65. 3690 [131]141,19,192,173,15,192,201,13,208,4,169,1,133,2,169,1,141,13,192,160,0,169,40,32,131,193,185,0,92,32,131,193,200,192,40,144,245,169,168,32,131,193,169,191,32,131,193,24,173,0,193,105,40,141,0,193,173,1
  66. 3720 [131]193,105,0,141,1,193,173,13,192,240,20,206,13,192,165,2,208,3,76,248,192,169,208,32,131,193,169,191,32,131,193,169,0,32,131,193,173,132,193,141,16,192,173,133,193,141,17,192,32,204,255,162,3,32,201,255
  67. 3750 [131]169,0,141,98,193,169,198,141,99,193,173,0,198,32,210,255,238,98,193,208,3,238,99,193,173,99,193,205,17,192,208,234,173,98,193,205,16,192,208,226,32,204,255,96,141,0,198,238,132,193,208,3,238,133,193,96,172
  68. 3780 [131]14,192,153,0,207,200,138,153,0,207,200,240,4,140,14,192,96,169,255,133,2,32,204,255,96,162,0,169,0,157,0,207,232,169,255,157,0,207,232,224,94,144,240,169,0,157,0,207,232,208,248,76,218,193,162,2,32,201
  69. 3810 [131]255,160,0,185,0,207,32,210,255,200,208,247,32,204,255,96,169,96,141,19,192,169,92,141,1,193,169,0,141,18,192,141,0,193,141,15,192,96,24,165,251,105,63,133,251,165,252,105,0,133,252,96,24,165,251,105,64
  70. 3840 [131]133,251,165,252,105,0,133,252,96,162,0,160,0,169,255,32,131,193,152,32,131,193,232,224,5,144,242,169,141,32,131,193,152,32,131,193,76,222,192,24,165,251,105,5,133,251,165,252,105,0,133,252,96,3,21,191
  71. 3880 [131]255,255,255,192,0,3,160,0,5,159,255,249,149,85,89,154,170,169,149,85,89,154,170,169,149,85,89,154,170,169,149,85,89,154,170,169,159,255,249,160,0,5,192,0,3,255,255,255,0,0,0,0,0,3,127,255,182,128,0,254,127,255,188
  72. 3910 [131]131,7,1,0,0,255,255,0,0,80,97,105,110,116,32,73,109,97,103,101,32,86,49,46,49,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,103,101,111,80,97,105,110,116,32,32,32,32,86,49,46,49,0,0,0,0,32,28,63,141
  73. 3950 [131]252,61,32,165,4,32,60,63,169,0,141,184,95,169,0,133,17,169,7,65,32,112,105,99,116,117,114,101,32,105,115,32,119,111,114,116,104,32,97,13,116,104,111,117,115,97,110,100,32,119,111,114,100,115,46,13
  74. 3980 [131]32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,27,45,32,80,114,111,118,101,114,98,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  75. 4000 [133]"(null)AME OF (null)(null)VAL FILE";F$
  76. 4020 [159]8,8,8,F$[170]",S,R"
  77. 4030 [151]53265,59:[151]53272,120:[151]56576,150
  78. 4040 [161]#8,A$:[139]A$[179][177]"H"[137]4040
  79. 4050 [158]9216:[160]8
  80. 4060 [129] PC[178]0 [164] 1500:[130]
  81. 4070 [151]53265,27:[151]53272,21:[151]56576,199
  82. 4080 [153]"":FL$[178]F$:[137] 2050
  83.